home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / nct08020.geo / 00088.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  2.7 KB  |  129 lines
  1. on startMovie
  2.   Set_CDcounter(2)
  3.   initLesson()
  4.   CheckForTagWd()
  5. end
  6.  
  7. on HideLastStep
  8.   RestoreHilites()
  9.   unLoadCast()
  10. end
  11.  
  12. on TheinitCursor
  13.   initCursorCastNum()
  14.   initCursorList(1)
  15.   set CursorCastNum to getCursor(2)
  16.   cursor([CursorCastNum, CursorCastNum + 1])
  17. end
  18.  
  19. on checkScreenStatus
  20.   CheckRollOver()
  21.   CheckSnakeStatus()
  22.   go(the frame)
  23. end
  24.  
  25. on BlinkNext
  26.   if (the timer > getTimer()) and not soundBusy(2) then
  27.     startTimer()
  28.     if the name of cast the castNum of sprite get_NEXTSprite() = "NEXT" then
  29.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT_E"
  30.     else
  31.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT"
  32.     end if
  33.   end if
  34. end
  35.  
  36. on GoNext
  37.   if not get_Disabled() then
  38.     puppetSound(0)
  39.     sound stop 2
  40.     if Get_NEXT() = 10 then
  41.       unLoadCast(126, 147)
  42.     end if
  43.     if Get_NEXT() > 24 then
  44.       GoEndMovie()
  45.     else
  46.       go("t" & Get_NEXT())
  47.     end if
  48.     Set_NEXT(Get_NEXT() + 1)
  49.   end if
  50. end
  51.  
  52. on GoEndMovie
  53.   global ReturnToMenu
  54.   PlaySound("GOSOUND.SO1")
  55.   SaveSeenScreens()
  56.   if (ReturnToMenu = "SUBJECT") and (Get_ScreenSubject() <> "11") and (Get_ScreenSubject() <> "00") then
  57.     set theNum to integer(Get_ScreenSubject())
  58.     go(1, "NCS" & Get_ScreenSubject() & "010.GEO")
  59.   else
  60.     if ReturnToMenu = "TOOL" then
  61.       go(1, "NC_MM020.GEO")
  62.     else
  63.       if ReturnToMenu = "SECTION" then
  64.         go(1, "NC_MM040.GEO")
  65.       else
  66.         if ReturnToMenu = "MAIN MENU" then
  67.           go(1, "NC_MM010.GEO")
  68.         else
  69.           go(1, "NC_MM010.GEO")
  70.         end if
  71.       end if
  72.     end if
  73.   end if
  74. end
  75.  
  76. on stopMovie
  77.   sound stop 1
  78.   unLoad()
  79.   setEmptyCursor()
  80. end
  81.  
  82. on GoNextMovie
  83.   SaveHilite()
  84.   Add_CDcounter(1)
  85.   set cdNum to Get_CDcounter()
  86.   set movieName to item cdNum of Get_CurrentSnakeScreens()
  87.   go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
  88. end
  89.  
  90. on playTheTSound theTSnd
  91.   if theTSnd < 10 then
  92.     PlaySound("NCT08020.s0" & theTSnd)
  93.   else
  94.     PlaySound("NCT08020.s" & theTSnd)
  95.   end if
  96. end
  97.  
  98. on blinkHiLight
  99.   global LocalTime
  100.   if (the timer > getTimer()) and not soundBusy(2) and (LocalTime < 2) then
  101.     startTimer()
  102.     if the visible of sprite 18 then
  103.       set the visible of sprite 18 to 0
  104.     else
  105.       puppetSound("highlight1")
  106.       set the visible of sprite 18 to 1
  107.       set LocalTime to 1 + LocalTime
  108.     end if
  109.   end if
  110. end
  111.  
  112. on blinkSprite
  113.   set xx to 0
  114.   repeat while xx <> 3
  115.     if the timer > getTimer() then
  116.       startTimer()
  117.       if the visible of sprite 18 then
  118.         set the visible of sprite 18 to 0
  119.         updateStage()
  120.         set xxtemp to xx + 1
  121.         set xx to xxtemp
  122.         next repeat
  123.       end if
  124.       set the visible of sprite 18 to 1
  125.       updateStage()
  126.     end if
  127.   end repeat
  128. end
  129.